home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / se-kaa_of_assiah[mastertronic_1984](!).nbz / code3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  26.1 KB  |  666 lines
  1. 0 POKE45,165:POKE46,112:POKE47,165:POKE48,112:POKE49,165:POKE50,112:GOTO9450
  2. 1 SYS40687:RETURN
  3. 3 POKEVC+21,0:IFPEEK(G+2)=1THENPOKEVC+21,1:IFS(48)=0THENPOKEVC+29,250:POKEVC+21,9
  4. 4 IFH%=297ANDS(48)=0THENPOKEVC+29,250:POKEVC+23,234:POKEVC+7,136:POKEVC+21,8
  5. 5 IFH%=205ANDS(39)=0THENPOKEVC+21,2
  6. 6 IFH%=281ANDS(48)=0THENPOKEVC+29,242:POKEVC+23,226:POKEVC+7,118:POKEVC+21,8
  7. 7 IFPEEK(G+43)=1THENPOKEVC+21,4
  8. 8 Y5%=0:IFH%=279ORH%=280OR(H%>262ANDH%<266)ORH%=200THENPOKEVC+21,16:Y5%=1
  9. 9 IF(H%>229ANDH%<241)OR(H%>220ANDH%<223)OR(H%>245ANDH%<253)THENY5%=1:POKEVC+21,20
  10. 10 IFS(67)>0THENPOKEVC+21,0
  11. 11 RETURN
  12. 13 PRINT"ô":SCR%=17:POKEBO,14:POKEPA,13:T$="":W=38066:G=50437:GOTO2000
  13. 14 FORA=1TOLEN(D$)-3:IFMID$(D$,A,3)<>"AND"THEN17
  14. 15 IFLEN(D$)>3THENT$=MID$(D$,A+4):AZ=A-1:A=LEN(D$)-3:D$=LEFT$(D$,AZ)
  15. 17 NEXT:RETURN
  16. 20 IFLEN(T$)>1THEND$=T$:T$="":RETURN
  17. 21 A=FRE(0):M$=S$:GOSUB65:LV%=0:RV%=0:D$="":T%=0:PRINTCHR$(144);
  18. 22 SYS49321,SCR%,T%,"£_";
  19. 23 GETC$:LV%=LV%+1:RV%=RV%+1:IFLV%>250THEN2600
  20. 24 PRINTCHR$(144);:IFC$=""THEN23
  21. 25 LV%=0:IFC$=CHR$(133)THEND$=Y$:SYS49321,SCR%,0,D$:T%=0:C$="":GOSUB66:RETURN
  22. 26 IFC$=CHR$(20)THENLM%=LEN(D$):IFLM%>0THEND$=LEFT$(D$,LM%-1):T%=T%-1
  23. 27 IFC$=CHR$(20)ANDLM%>0THENSYS49321,SCR%,T%+1," ";:GOTO22
  24. 28 IFC$=CHR$(13)THEN33
  25. 29 IF(ASC(C$)<48ANDASC(C$)<>32)ORASC(C$)>90THEN23
  26. 30 SYS49321,SCR%,T%,C$;:IFT%<38THENT%=T%+1:D$=D$+C$
  27. 32 C$="":GOTO22
  28. 33 SYS49321,SCR%,T%," *"
  29. 34 T%=0:C$="":IFD$=""THEN20
  30. 35 GOSUB66:GOSUB14:RETURN
  31. 36 I$=Y$:FORY=1TOLEN(I$):IFMID$(I$,Y,1)=" "THENY=LEN(I$):NEXT:RETURN
  32. 37 NEXT:IFLEN(Y$)>33THENM$=LEFT$(Y$,33)+" WHAT?":GOTO39
  33. 38 M$=Y$+" WHAT?"
  34. 39 GOSUB65:P1%=1:GOTO2000
  35. 40 Y$=D$:PV%=0:IFD$="PAUSE"THEN60
  36. 41 IFLEN(D$)=1AND(D$="N"ORD$="S"ORD$="E"ORD$="W"ORD$="U"ORD$="D")THENPV%=1:GOTO59
  37. 42 IFLEN(D$)=1THEN51
  38. 43 IFLEFT$(D$,2)="GO"THEN59
  39. 45 W1$=LEFT$(Y$,3)
  40. 46 IFW1$<>"LOO"ANDW1$<>"INV"ANDW1$<>"SCO"ANDW1$<>"QUI"ANDW1$<>"HEL"THENGOSUB36
  41. 47 W2$="TAK":SYS40533:IFW2$="QQQ"THEN51
  42. 48 B%=ASC(W2$):B%=B%-64:IFB%<8THENONB%GOTO2040,6600,6700,6800,6900,7000,7100
  43. 49 IFB%<19THENONB%-7GOTO7200,7300,7400,7500,7600,7700,2040,7900,8000,8100,8200
  44. 50 ONB%-18GOTO8300,8400,8500,8600,8700
  45. 51 XX%=XX%+1:IFXX%=4THENXX%=1
  46. 52 IFXX%=1THENM$="╘HAT WILL GET YOU NOWHERE!!"
  47. 53 IFXX%=2THENM$="╘RY SOMETHING ELSE!"
  48. 54 IFXX%=3THENM$="╘HINK AGAIN!!!"
  49. 58 GOSUB65:NN%=1
  50. 59 RETURN
  51. 60 M$="     ╟AME PAUSED - ANY KEY RESTARTS!!":GOSUB65:POKEBO,0
  52. 61 GETU$:IFU$=""THEN61
  53. 62 POKEBO,14:GOTO2040
  54. 65 SYS49321,SCR%,0,M$
  55. 66 SCR%=SCR%+1:IFSCR%>23THENSCR%=24
  56. 67 RETURN
  57. 80 H%=H%+15
  58. 83 IFLEFT$(Y$,1)="S"THENY$="SOUTH"
  59. 84 IFLEFT$(Y$,1)="W"THENY$="WEST"
  60. 85 IFLEFT$(Y$,1)="E"THENY$="EAST"
  61. 86 IFLEFT$(Y$,1)="N"THENY$="NORTH"
  62. 87 GOTO1559
  63. 90 GOSUB65:GOTO2040
  64. 95 M$="┘OU HAVE FALLEN OVER THE EDGE OF AN":GOSUB65:M$="ABYSS!! ┘OU KNEW "
  65. 96 M$=M$+"NOTHING ABOUT IT!":GOSUB65:GOSUB522:FORA=1TO3000:NEXT:GOTO9400
  66. 97 M$="┘OU ARE BLASTED WITH A BEAM OF ENERGY!":GOSUB65:GOSUB532:RETURN
  67. 98 GOSUB65:GOTO194
  68. 99 GOSUB65:GOTO186
  69. 100 SYS49235:SYS49953:PRINTCHR$(144);
  70. 103 IFH%=269ANDS(38)>1THENA$(H%-165)="NWS"
  71. 104 IFH%=253THENS(67)=1
  72. 109 L1$="":IFA$(H%-165)="O"THENL1$="NONE!":GOTO114
  73. 111 FORA=1TOLEN(A$(H%-165)):L1$=L1$+MID$(A$(H%-165),A,1)
  74. 112 IFA<>LEN(A$(H%-165))THENL1$=L1$+","
  75. 113 NEXT
  76. 114 IFH%=249ORH%=223THENS(67)=0
  77. 118 GOSUB250:IFFR%=0THENFR%=1:M$="╓ISIBLE EXITS ARE: "+L1$:GOSUB65
  78. 120 PRINTCHR$(144);:IFV%=1THEN200
  79. 121 IFH%=223THENV%=1:M$="╫ATCH YOU DON'T FALL!":GOSUB65
  80. 122 IFH%<>216THEN125
  81. 123 V%=1:M$="┘OU ARE STANDING BESIDE THE BROKEN":GOSUB65:M$="BRIDGE. ╓ENTURE "
  82. 124 M$=M$+"SOUTH ONLY IF YOU DARE!":GOSUB65
  83. 125 IFH%<>281THEN127
  84. 126 V%=1:M$="┘OU ARE ON THE BROKEN PATHWAY TO THE":GOSUB65:M$="╘EMPLE!":GOSUB65
  85. 127 IFH%<>213THEN129
  86. 128 V%=1:M$="╘O THE WEST LIES THE SOURCE OF THE":GOSUB65:M$="LIGHT!":GOSUB65
  87. 129 IFH%<279ORH%>280THEN132
  88. 130 V%=1:M$="┘OU'RE ON THE PRECIPICE OF THE CREVASSE":GOSUB65
  89. 131 M$="┴N ORNATE TEMPLE CAN BE SEEN ON THE FAR":GOSUB65:M$="SIDE!":GOSUB65
  90. 132 IFH%<>217THEN134
  91. 133 V%=1:M$="┘OU ARE ANKLE DEEP IN SHATTERED BONES!":GOSUB65
  92. 134 IFH%<>203THEN137
  93. 135 V%=1:M$="╔N THE DIMLY-LIT TUNNEL YOU CAN SEE TWO":GOSUB65
  94. 136 M$="TRAPDOORS IN THE EARTH!":GOSUB65
  95. 137 IFH%<>313THEN140
  96. 138 V%=1:M$="┘OU ARE WITHIN THE COLD AND HUSHED":GOSUB65:M$="╘EMPLE! ╠EGEND "
  97. 139 M$=M$+"NAMES IT THE ╘EMPLE OF":GOSUB65:M$="THE ├HAMELEONS!":GOSUB65
  98. 140 IFH%<>297THEN143
  99. 141 V%=1:M$="┴HEAD LIES A MAJESTIC TEMPLE! ╥UMOUR":GOSUB65:M$="HAS IT THAT THE "
  100. 142 M$=M$+"╦NOWLEDGE OF THE ╫ISE":GOSUB65:M$="╧NES IS HIDDEN HERE!":GOSUB65:GOSUB1000
  101. 143 IFH%<>269THEN146
  102. 144 V%=1:M$="┴ SMALL WINDOW LIES JUST TO THE SOUTH.":GOSUB65:M$="╘HICKLY "
  103. 145 IFS(38)<2THENM$=M$+"TANGLED VINES PREVENT YOU FROM":GOSUB65:M$="LEAVING!":GOSUB65
  104. 146 IFH%=171THENV%=1:M$="┘OU ARE AT THE ╔VORY ╟ATEWAY!":GOSUB65
  105. 147 IFH%<>204THEN150
  106. 148 V%=1:M$="╘HE VOICES ARE ALL AROUND.╔F YOU LISTEN":GOSUB65
  107. 149 M$="YOU CAN HEAR THE WHISPERINGS OF THE":GOSUB65:M$="WIND...":GOSUB65
  108. 150 IFH%<>187THEN153
  109. 151 M$="┘OU HAVE FALLEN INTO A RANCID PIT OF":GOSUB65:M$="ACID! ╘HE FLESH "
  110. 152 M$=M$+"SIZZLES FROM YOUR BODY!":GOSUB65:FORA=1TO5000:NEXT:GOTO9400
  111. 153 IFH%<>201THEN156
  112. 154 V%=1:M$="┘OU FIND YOURSELF IN A NARROW TUNNEL!":GOSUB65
  113. 155 M$="╔T IS DIFFICULT TO SEE CLEARLY HERE!":GOSUB65
  114. 156 IFH%<>212THEN159
  115. 157 V%=1:M$="┘OU ARE WITHIN THE SACRED ├AVERN OF":GOSUB65:M$="╠IGHT! "
  116. 158 M$=M$+"╘HE CRIMSON ╧RB OF ╔-┬AL RESTS":GOSUB65:M$="ON A PLINTH!":GOSUB65
  117. 159 IFH%<>214THEN162
  118. 160 V%=1:M$="┘OU ARE WITHIN A DIM CAVERN. ┘OU TRY TO":GOSUB65
  119. 161 M$="FOCUS ON THE LIGHT...":GOSUB65
  120. 162 IFH%<>215THEN165
  121. 163 V%=1:M$="┘OU ARE STANDING JUST OUTSIDE A CAVE":GOSUB65:M$="ENTRANCE! "
  122. 164 M$=M$+"╧VERHEAD ARE THE GLEAMING":GOSUB65:M$="SPIKES!!":GOSUB65
  123. 165 IFH%<>174THEN168
  124. 166 V%=1:M$="╘HIS LOOKS LIKE A BLACKSMITH'S FORGE.":GOSUB65:M$="┴N ANVIL "
  125. 167 M$=M$+"AND STIRRUP LIE CLOSE TO ONE":GOSUB65:M$="ANOTHER.":GOSUB65
  126. 168 IFH%<>205OR(H%=205ANDS(39)>0)THEN171
  127. 169 V%=1:M$="╚ERE YOU FIND SOME NATIVES BEATING ON A":GOSUB65:M$="DRUM! "
  128. 170 M$=M$+"┴ DARK FIGURE BLOCKS YOUR PATH!":GOSUB65
  129. 171 IFH%<>208THEN174
  130. 172 V%=1:M$="┘OU ARE ON A HIGH LEDGE!":IFS(43)>0THENGOSUB65
  131. 173 GOSUB65:M$="┴ MOUND OF EARTH LIES AGAINST THE CLIFF!":GOSUB65
  132. 174 IFH%<>208THEN179
  133. 175 S(44)=S(44)+1:IFS(44)<6THEN179
  134. 176 M$="╘HE WINGED MONSTER ╨HYN-GA APPEARS FROM":GOSUB65:M$="BEHIND A CLOUD "
  135. 177 M$=M$+"AND CARRIES YOU OFF TO":GOSUB65:M$="THE LAND OF THE ╠OST ╙OULS!"
  136. 178 GOSUB65:GOSUB520:GOSUB600:FORA=1TO3000:NEXT:GOTO9400
  137. 179 IFH%<263ORH%>265THEN182
  138. 180 V%=1:M$="╘HE TREES ARE THINNING OUT. ┬EFORE YOU":GOSUB65:M$="LIES A STEEP "
  139. 181 M$=M$+"DROP INTO A FORBIDDING":GOSUB65:M$="CHASM!":GOSUB65
  140. 182 IFH%<266OR(H%>278ANDH%<282)ORS(48)>0THEN186
  141. 183 M$="┴ GIANT HOPPER CLOSES IN ON YOU!!":S(47)=S(47)+1:IFS(47)<9THEN99
  142. 184 GOSUB65:M$="╘HE CREATURE HAS CAUGHT YOU! HE SUCKS":GOSUB65
  143. 185 M$="THE BLOOD FROM YOUR VEINS....":GOSUB65:GOSUB532:FORA=1TO3000:NEXT:GOTO9400
  144. 186 IFH%<>200THEN190
  145. 187 V%=1:M$="┘OU ARE ON THE BROKEN BRIDGE! ╔T LEADS":GOSUB65:M$="NOWHERE!"
  146. 188 GOSUB65:IFS(64)>0THENM$="┘OU ARE ON THE WALL!":GOSUB65
  147. 190 IFH%<>232OR(H%=231ANDS(49)=0)THEN194
  148. 191 V%=1:M$="┘OU ARE STRUGGLING ON THE ROCKY PLAIN":GOSUB65:M$="OF ┬EARDOME! "
  149. 192 M$=M$+"╘O THE NORTH LIES THE":GOSUB65:M$="╨THININ ╞OREST!":IFH%<>232THEN98
  150. 193 GOSUB65:M$="╘O THE SOUTH IS A SMALL BRIDGE!":GOSUB65
  151. 194 IFH%<>231OR(H%=231ANDS(49)>0)THEN200
  152. 195 M$="╘HE MIGHTY ╙EBAC PULLS BACK HIS WINGS":GOSUB65:S(49)=1
  153. 196 M$="AND GENTLY DROPS YOU ON THE PLAINS OF":GOSUB65:M$="┬EARDOME!":GOSUB65
  154. 200 IFV2%>0THEN250
  155. 201 A6%=0:FORY=1TO18:IFO(Y)=H%THENV2%=1:M$="╚ERE IS THE "+O$(Y):GOSUB65
  156. 202 IFO(Y)=H%THENA6%=A6%+1
  157. 203 IFO(Y)<>H%THEN208
  158. 204 IFH%=297ANDS(46)>0ANDY=18THENM$="                  (OVER THE GAP!)":GOSUB65
  159. 205 IFH%=217ANDS(51)>1ANDY=15THENM$="             (AROUND THE SPIKES!)":GOSUB65
  160. 206 IFH%=223ANDS(42)=1ANDY=15THENM$="              (TIED TO THE TREE!)":GOSUB65
  161. 208 NEXTY
  162. 209 PRINTCHR$(144);:RETURN
  163. 250 GOSUB1500:IFR%>0THENRETURN
  164. 251 IFH%=173ORH%=189ORH%=206ORH%=207ORH%=229OR(H%>212ANDH%<216)THENPOKEG,1:GOSUB300
  165. 252 IFH%=185OR(H%>200ANDH%<203)ORH%=218ORH%=219OR(H%>165ANDH%<171)THENGOSUB305
  166. 254 IFH%>265ANDH%<>297AND(H%<279ORH%>281)THENPOKEG+2,1:GOSUB311
  167. 256 IFH%=181THENPOKEG+16,1
  168. 257 IFH%=171THENPOKEG+14,1
  169. 258 IFH%=197THENPOKEG+20,1
  170. 259 IFH%=198THENPOKEG+42,1
  171. 260 IFH%=200THENPOKEG+10,1:POKEW+2,19
  172. 261 IFH%=205THENPOKEG+12,1
  173. 262 IFH%=216THENPOKEG+9,1
  174. 263 IFH%=297THENPOKEG+1,1:POKEW+2,179
  175. 264 IFH%=208ORH%=217THENPOKEG+18,1:IFH%=208ANDS(40)>0THENPOKEG+37,1
  176. 265 IFH%=174THENPOKEG+19,1:IFS(55)>0THENPOKEG+38,1
  177. 266 IFH%=203THENPOKEG+11,1:POKEG+15,1:POKEW,2:POKEW+1,32:POKEW+2,5:POKEW+3,37:GOSUB324
  178. 267 IFH%=212THENPOKEG+13,1:POKEG+24,1:POKEW,1:POKEW+1,16:POKEW+2,3:POKEW+3,19:GOSUB327
  179. 268 IFH%=204THENPOKEG+21,1:IFS(57)>0THENPOKEG+39,1
  180. 269 IFH%=224THENPOKEG+17,1:POKEW,67
  181. 270 IFH%=265THENPOKEG+3,1
  182. 271 IFH%=264THENPOKEG+5,1
  183. 272 IFH%=263THENPOKEG+4,1
  184. 273 IF(H%>262ANDH%<266)OR(H%>278ANDH%<282)ORH%=297ORH%=200ORH%=216THENGOSUB330
  185. 274 IFH%=279THENPOKEG+7,1:POKEW,35
  186. 275 IFH%=280THENPOKEG+6,1
  187. 276 IFH%=281THENPOKEG+8,1:POKEW,35
  188. 277 IFH%>229ANDH%<241THENPOKEG+43,1:POKEW,67:POKEW+1,66:POKEW+2,19:POKEG+33,1:POKEG+44,1
  189. 278 IFH%>220ANDH%<223THENPOKEG+43,1:POKEW,99:POKEW+1,98:POKEW+2,19:POKEG+44,1:POKEG+45,1
  190. 279 IF(H%>245ANDH%<263)OR(H%=223)THENPOKEG+43,1:FORA=25TO29:GOSUB331:NEXT:GOSUB333
  191. 280 IFH%=205THENPOKEW,7:POKEW+1,112:POKEW+2,7:POKEW+3,119
  192. 281 IFH%=198THENPOKEW,39:POKEW+1,118:POKEW+2,101:POKEW+3,117
  193. 282 R%=1:IFH%=182ORH%=187THENSYS49297:SYS52662
  194. 283 IFS(67)>0THENPOKEW,16:POKEW+1,27:POKEW+2,176:POKEVC+8,0
  195. 290 SYS49973:GOSUB3
  196. 292 IFTC%=1THENTC%=0:POKEVC+6,220
  197. 293 RETURN
  198. 295 HH$="NORTH!":IFH%=216ORH%=200ORH%=205THENHH$="SOUTH!"
  199. 296 IFH%=198ORH%=197ORH%=182ORH%=201ORH%=202ORH%=203THENHH$="EAST!"
  200. 297 RETURN
  201. 300 IFW(1)=1THENPOKEG+22,1
  202. 301 IFW(2)=1THENPOKEG+24,1
  203. 302 IFW(3)=1THENPOKEG+23,1
  204. 303 POKEW,112:IF(H%>212ANDH%<216)ORH%=229THENPOKEW,16
  205. 304 RETURN
  206. 305 POKEG+11,1:IFW(1)=1THENPOKEG+40,1
  207. 306 IFW(2)=1THENPOKEG+24,1
  208. 307 IFW(3)=1THENPOKEG+23,1
  209. 308 POKEW,2:POKEW+1,32:POKEW+2,5:POKEW+3,37
  210. 309 IFH%>200ANDH%<203THENPOKEG+40,1:POKEG+24,0:POKEG+23,0
  211. 310 RETURN
  212. 311 IFW(1)=1THENPOKEG+32,1
  213. 312 IFW(2)=1THENPOKEG+30,1
  214. 313 IFW(3)=1THENPOKEG+31,1
  215. 314 Y%=INT(RND(1)*5)+1:IFY%=1THENPOKEW,70:POKEW+1,212:POKEW+2,71:POKEW+3,13
  216. 315 IFY%=2THENPOKEW,50:POKEW+1,19:POKEW+2,53:POKEW+3,1
  217. 316 IFY%=3THENPOKEW,112:POKEW+1,199:POKEW+2,114:POKEW+3,12
  218. 317 IFY%=4THENPOKEW,150:POKEW+1,185:POKEW+2,151:POKEW+3,11
  219. 318 IFY%=5THENPOKEW,1:POKEW+1,32:POKEW+2,5:POKEW+3,2
  220. 319 RETURN
  221. 324 IFS(59)>0THENPOKEG+35,1
  222. 325 IFS(60)>0THENPOKEG+36,1
  223. 326 RETURN
  224. 327 IFS(56)>0THENPOKEG+34,1
  225. 328 RETURN
  226. 330 POKEW,67:POKEW+1,66:RETURN
  227. 331 IFINT(RND(1)*2)+1=1THENPOKEG+A,1
  228. 332 RETURN
  229. 333 POKEW,3:POKEW+1,2:POKEW+2,195:GG%=0:FORQ=25TO28:IFPEEK(G+Q)=0THENGG%=GG%+1
  230. 334 NEXT:IFGG%=4THENPOKEG+33,1
  231. 335 POKEG+44,1:IFINT(RND(1)*2)+1=1THENPOKEG+45,1
  232. 336 RETURN
  233. 450 FORA7=SITOSI+24:POKEA7,0:NEXT:RETURN
  234. 460 POKEHF,INT(Y7/256):POKELF,Y7-INT(Y7/256)*256:RETURN
  235. 500 GOSUB450:FORY7=1TO10:POKEVO,15:POKEAD,13:POKESR,0:POKEWF,33:POKEHF,10:POKELF,187
  236. 501 FORA7=1TO100:POKEHF,A7:POKELF,87:NEXTA7,Y7:POKEVO,0:RETURN
  237. 510 GOSUB450:FORA7=15TO8STEP-1:POKEVO,A7:POKEAD,13:POKESR,0:POKEWF,129:POKEHF,15
  238. 511 POKELF,15:FORY7=1TO150:NEXTY7,A7:POKEVO,0:RETURN
  239. 520 GOSUB450:FORA7=1TO3:POKEVO,15:POKEAD,0:POKESR,240:POKEWF,21:POKEH3,19:POKEL3,136
  240. 521 FORY7=0TO65535STEP1500:GOSUB460:NEXTY7,A7:POKEVO,0:RETURN
  241. 522 GOSUB450:FORA7=100TO2STEP-1:POKEVO,15:POKEAD,9:POKESR,220:POKEWF,17:POKEHF,9
  242. 523 FORY7=1TO30:NEXT:POKEHF,A7:POKELF,A7:POKEWF,33:NEXT:GOSUB510:RETURN
  243. 524 GOSUB450:POKEVO,15:POKEAD,0:POKESR,240:POKEWF,35:POKEH3,9:POKEL3,136
  244. 525 FORY7=65535TO0STEP-900:GOSUB460:NEXT:FORY7=0TO65535STEP1800:GOSUB460:NEXT:POKEVO,0:RETURN
  245. 532 GOSUB450:POKEVO,15:POKESR,240:POKEWF,33:FORA7=2TO17:FORA1=1TO15:POKEHF,A7*A1
  246. 533 NEXTA1,A7:POKEVO,0:RETURN
  247. 600 POKEVC+21,32:FORY=0TO105:POKEVC+11,Y:NEXT:FORA=1TO4000:NEXT:FORY=105TO0STEP-1
  248. 602 POKEVC+11,Y:NEXT:RETURN
  249. 1000 M$="╘HE BROKEN PATHWAY LIES BEHIND YOU!":GOSUB65:RETURN
  250. 1500 FORQ=1TO4:W(Q)=0:NEXT
  251. 1501 A1$=A$(H%-165):FORY=1TOLEN(A1$):B$=LEFT$(A1$,1):A1$=MID$(A1$,2)
  252. 1507 RT%=0:IFB$="S"THENW(4)=1
  253. 1510 IFB$="N"THENW(1)=1
  254. 1513 IFB$="E"THENW(2)=1
  255. 1514 IFB$="W"THENW(3)=1
  256. 1523 Q$(Y)=B$:B$="":NEXT:RETURN
  257. 1525 IFLEFT$(Y$,5)<>"GO IN"THEN1529
  258. 1526 IFH%=208ANDS(40)>0THENS(44)=0:R%=0:H%=H%-1:M$="┘OU GO IN.":GOSUB65:RETURN
  259. 1529 IFLEFT$(Y$,2)="GO"THENY$=MID$(Y$,4)
  260. 1530 FORY=1TO6:IFLEFT$(Y$,1)=LEFT$(Q$(Y),1)THENY=6:NEXT:GOTO1539
  261. 1535 NEXT
  262. 1538 M$="┘OU CAN'T GO THAT WAY!!":GOSUB65:RETURN
  263. 1539 IFH%<>297OR(H%=297ANDLEFT$(Y$,1)<>"N")THEN1541
  264. 1540 IFS(61)=0THENM$="╘HE DOORS WILL NOT OPEN FOR YOU YET!":GOSUB65:RETURN
  265. 1541 IFH%<>200OR(H%=200ANDLEFT$(Y$,1)<>"S")THEN1544
  266. 1542 M$="┘OU HAVE FALLEN FROM THE BRIDGE! ┘OU":GOSUB65:M$="ARE NO MORE!"
  267. 1543 GOSUB65:GOSUB522:FORA=1TO3000:NEXT:GOTO9400
  268. 1544 IFH%=181ANDS(53)=0THENM$="╘HE SLUG BLOCKS YOUR PATH!":GOSUB65:RETURN
  269. 1545 IF(H%=166ANDLEFT$(Y$,1)="W")OR(H%=170ANDLEFT$(Y$,1)="E"ANDS(4)<95)THEN80
  270. 1546 IFH%=181OR(H%=185ANDLEFT$(Y$,1)<>"D")THENH%=H%-15:GOTO83
  271. 1547 IFLEFT$(Y$,1)="S"ANDH%=205ANDS(39)=0THEN97
  272. 1548 IF(LEFT$(Y$,1)="E"AND(H%=256ORH%=240))THEN95
  273. 1552 IFLEFT$(Y$,1)="N"THENY$="NORTH":H%=H%+16:IFH%=216THENS(64)=0
  274. 1553 IFLEFT$(Y$,1)="D"THENY$="DOWN":GOTO1580
  275. 1554 IFLEFT$(Y$,1)="S"THENY$="SOUTH":H%=H%-16
  276. 1555 IFLEFT$(Y$,1)="U"THENY$="UP":GOTO1580
  277. 1556 IFLEFT$(Y$,1)="E"THENY$="EAST":H%=H%+1:IFH%=167THENH%=170
  278. 1558 IFLEFT$(Y$,1)="W"THENY$="WEST":H%=H%-1:IFH%=169THENH%=166
  279. 1559 GOSUB295:M$="┘OU GO "+Y$+" ... AND FACE "+HH$:GOSUB65
  280. 1560 R%=0:FR%=0:RT%=0:V%=0:V2%=0:FORY=1TO6:Q$(Y)="":NEXT:RETURN
  281. 1580 IFH%=198THENH%=182:M$="┘OU'VE FALLEN INTO A TURGID POOL!":GOTO1590
  282. 1584 IFH%=185THENH%=201:Y$="DOWN":GOTO1559
  283. 1585 IFH%=201THENH%=185:Y$="UP":GOTO1559
  284. 1586 IFH%=204THENH%=203:Y$="UP"
  285. 1589 GOTO1559
  286. 1590 GOSUB65:IFS(53)=0THENM$="┴ SLUG HEADS FOR YOU!":GOSUB65
  287. 1591 GOTO1560
  288. 2000 PRINTCHR$(144);:GOSUB100
  289. 2002 IFY5%=1ANDS(67)=0THENGOSUB6200
  290. 2005 GOSUB20
  291. 2007 IFH%>291ANDS(48)=0THENGOSUB6300
  292. 2010 GOSUB40
  293. 2012 IFPEEK(G+43)=1ANDS(67)=0ANDRV%>180ANDPV%=1THENGOSUB6150
  294. 2020 IFNN%>0THENNN%=0:GOTO2000
  295. 2025 GOSUB1525
  296. 2030 GOTO2000
  297. 2040 NN%=1:RETURN
  298. 2500 R$="╘UT TUT!! ═IND YOUR LANGUAGE!":GOTO7650
  299. 2600 IFPEEK(G+43)=1ANDS(67)=0THENGOSUB6100:RV%=0
  300. 2605 LV%=0:GOTO23
  301. 5000 SYS49258:PRINT"ô":POKEPA,0:POKEBO,0
  302. 5010 SYS49321,1,0,"*** SUCCESS *** SUCCESS *** SUCCESS ***"
  303. 5020 SYS49321,23,0,"*** SUCCESS *** SUCCESS *** SUCCESS ***"
  304. 5030 SYS49321,6,0,"OH MIGHTY SE-KAA¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬"
  305. 5040 SYS49321,7,0,"OH BRAVE ADVENTURER¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬"
  306. 5050 SYS49321,8,0,"OUR POWERS ARE NOW RESTORED THAT WE¬¬¬¬"
  307. 5060 SYS49321,9,0,"MAY RULE THIS FAIR LAND ONCE AGAIN¬¬¬¬¬"
  308. 5100 SYS49321,10,0,"THY QUEST IS DONE¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬"
  309. 5110 SYS49321,15,0,"THY SCORE ╤╤╤ 100%"
  310. 5120 SYS49321,20,0,"₧(PRESS ANY KEY TO GO AGAIN)"
  311. 5130 GETU$:IFU$=""THEN5130
  312. 5140 RUN9600
  313. 5700 IFS(51)>2ANDH%=217THENM$="╘HE ╟ATE OF ─ARKNESS FALLS...":GOSUB65
  314. 5701 RETURN
  315. 6000 M$="┘OU HACK THROUGH THE VINES....":GOSUB65:S(38)=S(38)+1
  316. 6001 IFS(38)=2THENM$="AND FIND AN EXIT SOUTH!!":GOSUB65
  317. 6002 GOTO2040
  318. 6005 S(59)=0:S(60)=0:R%=0:GOTO7650
  319. 6006 H%=H%+16:M$="┘OU SCRAMBLE SAFELY DOWN THE CHASM BUT":GOSUB65
  320. 6007 M$="THERE IS NO WAY UP AGAIN!":GOSUB65:GOSUB522:GOTO2040
  321. 6009 FORA=1TO4:Q$(A)="":NEXT:GOTO7650
  322. 6010 M$="┘OU HAVE UNCOVERED A LEVER!":GOTO90
  323. 6011 M$="╘HERE ARE SOME STRANGE RUNES INSCRIBED":GOSUB65:M$="ON IT!":GOTO90
  324. 6012 M$="┼TCHED ON THE TALISMAN IS THE FAINT":GOSUB65:M$="OUTLINE OF A SCARLET"
  325. 6013 M$=M$+" PISCEAN AND THE":GOSUB65:M$="WORDS '═IND OVER MATTER'.":GOTO90
  326. 6014 M$="╘HE ╧RB OF ╔-┬AL HAS A SMALL RECEPTACLE":GOSUB65:M$="INSIDE!":GOTO90
  327. 6015 GOSUB65:M$="─ARKNESS!!":GOTO90
  328. 6016 M$="╘HERE IS AN INSCRIPTION CARVED INTO THE":GOSUB65:M$="DOOR!":GOTO90
  329. 6017 M$="┴AAAAAAAAAARRRRRRRRRRGGGGGGGGGHHHHHHH!!":GOSUB65:M$="╘HE CREVASSE "
  330. 6018 M$=M$+"WAS TOO WIDE! ┘OU HAVE":GOSUB65:M$="FALLEN TO YOUR DEATH!"
  331. 6019 GOSUB65:GOSUB522:FORA=1TO3000:NEXT:GOTO9400
  332. 6020 M$=M$+"STUDDED WITH GLEAMING":GOSUB65:M$="IRON SPIKES FROM WHICH HANG OLD"
  333. 6021 M$=M$+" AND":GOSUB65:M$="ROTTING ROPES!":GOTO90
  334. 6100 FORA=0TO255STEP16:GOSUB6120:NEXTA
  335. 6102 POKEVC+16,4:FORA=0TO63STEP16:GOSUB6120:NEXTA:POKEVC+4,0:POKEVC+16,0:RETURN
  336. 6120 FORY=0TO1:POKEVC+4,A:POKEVC+5,149-(Y*8):FORQ=1TO10:NEXTQ,Y:RETURN
  337. 6150 M$="╘HE HOPPER HAS BITTEN YOU...":GOSUB65:GOSUB532:BT%=BT%+1
  338. 6151 GOSUB6160:IFBT%<8THENRETURN
  339. 6152 M$="...FOR THE FINAL TIME...YOU ARE DEAD...":GOSUB65:FORA=1TO4000:NEXT:GOTO9400
  340. 6160 POKEVC+4,170:FORA3=1TO5:FORB3=149TO133STEP-1:POKEVC+5,B3:NEXTB3
  341. 6165 FORB3=133TO149:POKEVC+5,B3:NEXTB3,A3:FORC3=149TO0STEP-1:POKEVC+5,C3:NEXT:POKEVC+4,0
  342. 6166 POKEVC+5,61:RETURN
  343. 6200 CL%=CL%+8:IFCL%>254THENPOKEVC+16,16:CL%=0:POKEVC+8,0:CR%=1
  344. 6202 POKEVC+8,CL%:IFCL%>63ANDCR%=1THENCR%=0:CL%=0:POKEVC+8,0:POKEVC+16,0
  345. 6204 RETURN
  346. 6300 FORY=1TO10
  347. 6301 FORA=136TO118STEP-1:POKEVC+7,A:GOSUB6310:FORA=118TO136:POKEVC+7,A:GOSUB6310
  348. 6303 NEXTY:POKEVC+7,136:RETURN
  349. 6310 FORQ=1TO30:NEXTQ:RETURN
  350. 6600 IFW2$<>"BRE"THEN6689
  351. 6602 IFO(8)=0THENW2$="EGG":GOSUB1:IFN%=1THEN6604
  352. 6603 GOTO6619
  353. 6604 M$="┴ BABY HOPPER LEAPS OUT AND FASTENS":GOSUB65:M$="ONTO YOUR NECK! "
  354. 6605 M$=M$+"┘OUR LIFE BLOOD DRAINS":GOSUB65:M$="AWAY......":GOSUB65
  355. 6606 FORA=1TO4000:NEXT:GOTO9400
  356. 6619 R$="╫HAT A DESTRUCTIVE CREATURE!":GOTO7650
  357. 6689 R$="┘OU CAN BLOW ALL YOU LIKE!":GOTO7650
  358. 6700 IFW2$<>"CUT"THEN6720
  359. 6703 IFH%=269AND(O(9)=0ORO(17)=0)ANDS(38)<2THENW2$="VIN":GOSUB1:IFN%=1THEN6000
  360. 6717 IFO(9)>0ORO(17)>0THENR$="┘OU HAVE NOTHING TO CUT WITH!":GOTO7650
  361. 6718 R$="╧╒├╚!! ┘OU'VE CUT YOUR FINGER!":GOTO7650
  362. 6720 IFW2$<>"CLO"THEN6740
  363. 6722 IFH%=203AND(S(59)>0ORS(60)>0)THENW2$="TRA":GOSUB1:IFN%=1THEN6005
  364. 6739 R$="╔T CAN'T BE DONE!":GOTO7650
  365. 6740 FR%=0:R%=0:V%=0:RT%=0:IFH%>262ANDH%<266THENW2$="DOW":GOSUB1:IFN%=1THEN6006
  366. 6744 IFH%=223ANDS(41)>0THENW2$="DOW":GOSUB1:IFN%=1THENH%=H%+1:GOTO6009
  367. 6745 IFH%=224THENW2$=" UP":GOSUB1:IFN%=1THENH%=H%-1:GOTO7650
  368. 6746 IFH%=197THENW2$="STE":GOSUB1:IFN%=1THENH%=H%+1:GOTO7650
  369. 6747 IFH%=208THENW2$=" UP":GOSUB1:IFN%=1THENH%=224:GOTO7650
  370. 6748 IFH%=224THENW2$="DOW":GOSUB1:IFN%=1THENH%=208:GOTO6009
  371. 6750 IFH%=181ANDS(54)>0THENW2$=" UP":GOSUB1:IFN%=1THENH%=198:GOTO7650
  372. 6756 IFH%=203ANDS(60)>0THENW2$="DOW":GOSUB1:IFN%=1THENH%=187:GOTO7650
  373. 6758 IFH%=203ANDS(59)>0THENW2$="DOW":GOSUB1:IFN%=1THENH%=204:GOTO7650
  374. 6760 IFH%=217ANDS(51)=3THENW2$="DOW":GOSUB1:IFN%=1THENH%=215:GOTO7650
  375. 6762 IFH%=215THENW2$=" UP":GOSUB1:IFN%=1THENH%=217:GOTO7650
  376. 6764 IFH%=200THENW2$="UND":GOSUB1:IFN%=1THENW2$="BRI":GOSUB1:IFN%=1THENH%=197:GOTO7650
  377. 6766 IFH%=197THENW2$=" UP":GOSUB1:IFN%=1THENH%=200:GOTO7650
  378. 6768 IFH%=200ANDS(64)=0THENW2$="WAL":GOSUB1:IFN%=1THENS(64)=1:R%=1:GOTO7650
  379. 6789 R$="├╠╔═┬╔╬╟ ├┴╬ ┬┼ ─┴╬╟┼╥╧╒╙!":GOTO7650
  380. 6800 IFW2$<>"DRO"THEN6820
  381. 6801 V2%=0:W2$="ALL":GOSUB1:IFN%=1THEN6850
  382. 6809 Y$=MID$(Y$,2):FORA=19TO23:IFO$(A)=""THEN6813
  383. 6810 W2$=LEFT$(O$(A),3):GOSUB1
  384. 6812 IFN%=1THENM$="╧K-YOU'VE DROPPED IT":GOSUB65:S(10)=S(10)-1:O$(A)="":GOTO6815
  385. 6813 NEXT
  386. 6814 M$="┘OU'RE NOT CARRYING IT!":GOSUB65:Y$="D"+Y$:GOTO2040
  387. 6815 A=23:NEXT:FORY=1TO18:IFLEFT$(O$(Y),3)=W2$THENO(Y)=H%:Y=18:NEXT:Y$="D"+Y$:GOTO2040
  388. 6817 NEXT:GOTO6814
  389. 6820 IFW2$<>"DRI"THEN6840
  390. 6824 IFO(11)=0THENW2$="SOM":GOSUB1:IFN%=1THENM$="┘AWWWN..SO SLEEPY...":GOSUB65:GOTO60
  391. 6839 R$="═Y! ┘OU MUST BE THIRSTY!":GOTO7650
  392. 6840 IFW2$<>"DIG"THEN6849
  393. 6842 IFH%=208ANDS(65)=0THENW2$="EAR":GOSUB1:IFN%=1THENS(65)=1:GOTO6010
  394. 6845 R$="┬UT YOU'LL DIRTY YOUR HANDS!!":GOTO7650
  395. 6849 R$="┬E CAREFUL WHAT YOU DIVE INTO!":GOTO7650
  396. 6850 IFS(10)=0THENM$="┘OU'RE NOT CARRYING ANYTHING!":GOSUB65:GOTO2040
  397. 6852 FORY=19TO23
  398. 6853 IFO$(Y)<>""THENXY$=O$(Y):O$(Y)="":GOSUB6860:IFLEFT$(XY$,3)="CLO"THENS(23)=0
  399. 6854 NEXTY:S(10)=0:M$="╧K-YOU'VE DROPPED EVERYTHING!":GOSUB65:V2%=0:GOTO2040
  400. 6860 FORA=1TO18:IFLEFT$(O$(A),3)=LEFT$(XY$,3)THENO(A)=H%
  401. 6862 NEXTA:RETURN
  402. 6900 IFW2$<>"EXA"THEN6980
  403. 6901 IFO(1)=0THENW2$="ROD":GOSUB1:IFN%=1THEN6011
  404. 6902 IFO(16)=0THENW2$="TAL":GOSUB1:IFN%=1THEN6012
  405. 6903 IFH%=217THENW2$="GAT":GOSUB1:IFN%=1THENM$="╘HE LARGE GATE IS ":GOTO6020
  406. 6904 IFH%=212ANDO(1)<>-1THENW2$="ORB":GOSUB1:IFN%=1THEN6014
  407. 6907 IFH%=217THENM$="┘OU ARE ON A LEDGE ABOVE THE ╟ATE OF":GOTO6015
  408. 6910 IFH%=297THENW2$="DOO":GOSUB1:IFN%=1THEN6016
  409. 6950 IFH%=204ORH%=171ORH%=200ORH%=278ORH%=223ORH%=224ORH%=269THEN8301
  410. 6979 M$="╬OTHING OF INTEREST CAN BE SEEN!":GOSUB65:GOTO2040
  411. 6980 R$="─IDN'T YOU HAVE BREAKFAST TODAY?":GOTO7650
  412. 6999 M$="┘OU ARE CARRYING IT!!":GOSUB65:GOTO2040
  413. 7000 IFW2$="FIT"THEN7089
  414. 7001 IFW2$="FUC"THEN2500
  415. 7049 R$="╨HIL ISN'T HERE!!!":GOTO7650
  416. 7089 R$="┘OU'RE NO FITTER!!":GOTO7650
  417. 7100 W2$="ALL":GOSUB1:IFN%=1THENV2%=0:GOTO7150
  418. 7101 IFS(10)=5THENM$="┘OU CAN'T. ┘OU ARE CARRYING TOO MUCH!":GOSUB65:GOTO2040
  419. 7102 FORY=19TO23:IFLEN(O$(Y))>3THENW2$=LEFT$(O$(Y),3):GOSUB1:IFN%=1THENY=23:NEXT:GOTO6999
  420. 7106 NEXT:V2%=0:FORY=1TO18:IFO(Y)=H%THENW2$=LEFT$(O$(Y),3):GOSUB1:IFN%=1THEN7110
  421. 7108 NEXT:GOTO7115
  422. 7110 FORA=1TO5:IFLEN(O$(A+18))>2THENNEXTA
  423. 7111 O$(A+18)=O$(Y):S(10)=S(10)+1:O(Y)=0:M$="╧K-IT'S YOURS!":GOSUB65
  424. 7112 IFLEFT$(O$(A+18),3)="ROP"THENS(41)=0:S(42)=0:GOSUB5700:IFS(51)>1THENS(51)=1
  425. 7113 A=5:NEXTA:Y=18:NEXTY:GOTO2040
  426. 7115 W2$="STU":GOSUB1:IFN%=1THEN2500
  427. 7116 IFO(1)=-1THENW2$="ROD":GOSUB1:IFN%=1THEN7190
  428. 7117 IFO(2)=-1THENW2$="HAM":GOSUB1:IFN%=1THEN7190
  429. 7118 IFO(3)=-1THENW2$="CAS":GOSUB1:IFN%=1THEN7190
  430. 7120 IFH%=217THENW2$="BON":GOSUB1:IFN%=1THENM$="╘HEY CRUMBLE TO DUST!":GOSUB65:GOTO2040
  431. 7128 M$="╔T'S NOT HERE!":GOSUB65:GOTO2040
  432. 7150 IFA6%=0THENM$="╘HERE'S NOTHING HERE!":GOSUB65:GOTO2040
  433. 7152 IFA6%+S(10)<=5THEN7156
  434. 7154 M$="╙ORRY! ┘OU WOULD BE CARRYING TOO MUCH!":GOSUB65:GOTO2040
  435. 7156 FORA=1TOA6%:FORY=1TO18:IFO(Y)=H%THENGOSUB7170
  436. 7158 NEXTY:NEXTA:M$="╧K! ┘OU'VE GOT EVERYTHING!":GOSUB65:A6%=0:GOTO2040
  437. 7170 FORC=19TO23:IFLEN(O$(C))<3THEN7180
  438. 7172 NEXTC:RETURN
  439. 7180 O$(C)=O$(Y):O(Y)=0:S(10)=S(10)+1:C=23:NEXTC:RETURN
  440. 7190 M$="╔T CANNOT BE REMOVED!!!":GOSUB65:GOTO2040
  441. 7200 IFW2$<>"HEL"THEN7279
  442. 7202 M$="┘OU ARE DOING AMAZINGLY WELL!! ╫HY DO":GOSUB65
  443. 7204 M$="YOU WANT HELP??":GOTO90
  444. 7279 R$="┘OU CAN'T REACH!":GOTO7650
  445. 7300 IFW2$<>"INV"THEN7315
  446. 7301 POKEVC+21,0:SYS49258:POKEBO,6:PRINT"ô":SYS49321,5,12,"YOU ARE CARRYING"
  447. 7302 PRINTCHR$(144):IFS(10)=0THENSYS49321,11,16,"NOTHING":GOTO7311
  448. 7306 FORY=1TO5:IFLEN(O$(Y+18))<3THEN7310
  449. 7307 SYS49321,8+Y,INT(12+((16-LEN(O$(Y+18))))/2),O$(Y+18);
  450. 7310 NEXT
  451. 7311 SYS49321,18,13,"PRESS ANY KEY"
  452. 7312 GETU$:IFU$=""THEN7312
  453. 7313 POKEBO,14:PRINTCHR$(144):PRINT"ô":SYS49258:V%=0:V2%=0:RT%=0:SCR%=17
  454. 7314 FR%=0:R%=1:GOSUB3:GOTO2040
  455. 7315 IFW2$<>"INH"THEN7335
  456. 7330 R$="╙NIFF! ╙NIFF!  ╓ERY NICE!":GOTO7650
  457. 7335 IFH%=174ANDO(2)=0THENW2$="HAM":GOSUB1:IFN%=1THEN7352
  458. 7338 IFH%=212ANDO(1)=0ANDS(52)>0THENW2$="ROD":GOSUB1:IFN%=1THEN7362
  459. 7340 IFH%=204ANDO(3)=0THENW2$="CAS":GOSUB1:IFN%=1THEN7370
  460. 7349 R$="╦INDLY INSERT IT ELSEWHERE!":GOTO7650
  461. 7352 SYS32051:FORA=19TO23:IFLEFT$(O$(A),3)="HAM"THENO$(A)="":O(2)=-1:GOTO7354
  462. 7353 NEXT:GOTO2040
  463. 7354 S(10)=S(10)-1:S(4)=S(4)+15:M$="┴ VOICE WHISPERS...'╙PEAK NOW OR":GOSUB65
  464. 7355 M$="FOREVER...'":GOSUB65:S(55)=1:A=23:GOSUB524:GOTO7353
  465. 7362 SYS34283:FORA=19TO23:IFLEFT$(O$(A),3)="ROD"THENO$(A)="":O(1)=-1:GOTO7364
  466. 7363 NEXT:GOTO2040
  467. 7364 S(10)=S(10)-1:S(4)=S(4)+15:M$="┴S YOU REPLACE THE ╥OD, A SHAFT OF":GOSUB65
  468. 7365 M$="SUNLIGHT FALLS ONTO THE ╧RB!":GOSUB65:S(56)=1:A=23:GOSUB524:GOTO7363
  469. 7370 SYS51725:FORA=19TO23:IFLEFT$(O$(A),3)="CAS"THENO$(A)="":O(3)=-1:S(57)=1:GOTO7374
  470. 7372 NEXT:GOTO2040
  471. 7374 S(10)=S(10)-1:S(4)=S(4)+15:M$="╚┼┴╥╦┼╬!!":GOSUB65:A=23:GOSUB524:GOTO7372
  472. 7400 R%=0:IFH%>278ANDH%<282THENW2$="CRE":GOSUB1:IFN%=1THEN6017
  473. 7405 IFH%=200ANDS(64)>0THENW2$="LED":GOSUB1:IFN%=1THENH%=217:V%=0:GOTO7650
  474. 7407 IFH%=217THENW2$="BRI":GOSUB1:IFN%=1THENH%=200:GOTO7650
  475. 7499 R$="─O YOU THINK YOU'RE A KANGAROO?":GOTO7650
  476. 7500 R$="─ON'T BE SO CRUEL!!":GOTO7650
  477. 7551 FORA=19TO23:IFLEFT$(O$(A),3)="MAT"THENO$(A)="":S(10)=S(10)-1:GOTO7553
  478. 7552 NEXT:GOTO7650
  479. 7553 O(18)=H%:A=23:GOTO7552
  480. 7600 IFW2$="LOO"ANDH%=181THENM$="┘OU SEE AN OPENING ABOVE YOU!":S(54)=1:GOTO90
  481. 7601 IFW2$="LOO"THENRT%=0:V%=0:V2%=0:FR%=0:GOTO2040
  482. 7612 IFW2$="LIG"THENR$="╔T'S LIGHT ENOUGH!":GOTO7650
  483. 7620 IFW2$="LOC"THENR$="┘OU HAVE NO KEY!":GOTO7650
  484. 7621 IFW2$="LAY"THEN7635
  485. 7622 IFW2$="LOW"THEN7641
  486. 7623 IFW2$="LAS"THEN8454
  487. 7624 IFW2$="LIS"THEN7690
  488. 7626 IFH%=171THEN5000
  489. 7634 R$="╔T'S TOO HEAVY, WEAKLING!":GOTO7650
  490. 7635 IF(H%=297ORH%=281)ANDO(18)=0THENW2$="MAT":GOSUB1:IFN%=1THENS(46)=1:GOTO7551
  491. 7636 R$="┘OU CAN'T LAY THAT!":GOTO7650
  492. 7641 IFH%=223ANDS(42)>0ANDS(41)=0THENW2$="ROP":GOSUB1:IFN%=1THENS(41)=1:GOTO7650
  493. 7649 R$="╚OW LOW CAN YOU GET!"
  494. 7650 IFR$<>""THENM$=R$:GOSUB65:R%=1:R$="":GOTO2040
  495. 7655 M$="╧K-YOU "+Y$:GOSUB65:GOTO2040
  496. 7690 IFS(4)=90ANDH%=204THENM$="┘OU CAN HEAR THE WHISPERING OF THE WIND":GOTO7692
  497. 7691 R$="┘OU HEAR NOTHING!":GOTO7650
  498. 7692 GOSUB65:M$="TELLING YOU TO GO TO THE ╔VORY ╟ATEWAY!":S(4)=95:GOTO90
  499. 7700 R$="╘HERE'S NOTHING HERE TO MOUNT!":GOTO7650
  500. 7850 M$="╘HE ╟ATE OF ─ARKNESS OPENS!":GOTO90
  501. 7851 S(40)=1:M$="┴ SECRET ENTRANCE APPEARS!":SYS31702:GOTO90
  502. 7852 M$="╘HE SLUG FALLS INTO A DAZE...":GOSUB65:S(10)=S(10)-1:S(53)=1
  503. 7853 FORA=19TO23:IFLEFT$(O$(A),3)="PHI"THENO$(A)="":A=23:O(11)=-1
  504. 7854 NEXT:GOTO2040
  505. 7900 IFH%=212ANDS(52)=0THENW2$="ORB":GOSUB1:IFN%=1THENS(52)=1:GOTO7650
  506. 7905 IFH%=203ANDS(59)=0ANDS(60)=0THENW2$="FIR":GOSUB1:IFN%=1THENS(59)=1:SYS31135:GOTO7650
  507. 7907 IFH%=203ANDS(60)=0ANDS(59)=0THENW2$="SEC":GOSUB1:IFN%=1THENS(60)=1:SYS31355:GOTO7650
  508. 7909 IFH%=203THENW2$="TRA":GOSUB1:IFN%=1THENM$="╫HICH ONE?":GOTO90
  509. 7910 IFH%=297ANDS(61)>0THENM$="╘HE DOOR IS OPEN!!":GOSUB65:GOTO2040
  510. 7979 R$="┘OU CAN'T "+Y$:GOTO7650
  511. 8000 IFW2$<>"PUL"THEN8050
  512. 8002 IFH%=217ANDS(51)=2THENW2$="ROP":GOSUB1:IFN%=1THENS(51)=3:GOTO7850
  513. 8004 IFH%=208ANDS(65)>0ANDS(40)=0THENW2$="LEV":GOSUB1:IFN%=1THEN7851
  514. 8049 GOTO8069
  515. 8050 IFW2$="PIC"THEN8070
  516. 8052 IFH%=174ORH%=204ORH%=212THEN7335
  517. 8054 IFH%=181ANDO(11)=0THENW2$="SOM":GOSUB1:IFN%=1THENW2$="POO":GOSUB1:IFN%=1THEN7852
  518. 8069 R$="╨UFF...PANT...THIS IS HARD WORK!":GOTO7650
  519. 8070 R$="┘OU HAVE NOTHING TO PICK WITH...":GOTO7650
  520. 8100 POKEVC+21,0:SYS49258
  521. 8101 PRINT"ô":POKEBO,2:SYS49321,12,0,"  DO YOU WANT TO SAVE THE DATA  (Y/N)
  522. 8102 GOSUB9640:IFU$<>"Y"ANDU$<>"N"THEN8100
  523. 8104 IFU$="Y"THEN8108
  524. 8106 RUN9600
  525. 8108 S(7)=H%
  526. 8109 FORA=19TO23:IFLEN(O$(A))<3THENO$(A)=" "
  527. 8110 NEXT
  528. 8113 OPEN1,8,2,"@0:DATA,S,W"
  529. 8116 FORA=1TO18:PRINT#1,O(A):NEXT
  530. 8117 FORA=1TO70:PRINT#1,S(A):NEXT
  531. 8118 FORA=1TO23:PRINT#1,O$(A):NEXT
  532. 8120 CLOSE1:POKEBO,14:PRINT"ô":SCR%=17
  533. 8122 R%=1:RT%=0:V%=0:V2%=0:SYS49235:GOSUB3:GOTO2040
  534. 8200 IFW2$="REP"THEN7335
  535. 8201 IFO(1)=0THENW2$="RUN":GOSUB1:IFN%=1THENM$="╘HE RUNES ARE SILENT!":GOTO90
  536. 8204 IFH%=297THENW2$="INS":GOSUB1:IFN%=1THEN8250
  537. 8249 R$="┘OU READ IT - VERY INTERESTING!!":GOTO7650
  538. 8250 M$="╔NITIALLY UTTER ANCIENT WORDS OF":GOSUB65:M$="REASONED DIALECT..."
  539. 8251 GOTO90
  540. 8260 M$=M$+"ON EITHER SIDE, ARE WHAT SEEM":GOSUB65:M$="TO BE LEDGES!":GOTO90
  541. 8261 M$=M$+"CAN BE SEEN A FLIGHT":GOSUB65:M$="OF STEPS!":GOTO90
  542. 8262 M$=M$+"EITHER SIDE!":GOTO90
  543. 8263 M$="YOU CAN SEE A SMALL LEDGE!":GOTO90
  544. 8264 M$="CAN BE SEEN ANOTHER LEDGE!":GOTO90
  545. 8265 M$=M$+"FILTERS THROUGH A GAP":GOSUB65:M$="IN THE BROKEN IVORY!":GOTO90
  546. 8266 M$="╟O THEE AND LISTEN!":S(4)=S(4)+5:GOTO90
  547. 8267 M$="╫HAT A MAGICAL SOUND...THE DOOR SWINGS":GOSUB65:M$="OPEN...":GOTO90
  548. 8270 M$="┴ TINY HOPPER SPRINGS FROM THE EGG AND":GOSUB65:M$="BITES THE FIGURE."
  549. 8271 M$=M$+" ╚E FADES INTO":GOSUB65:M$="NOTHINGNESS....":GOSUB65:S(39)=1
  550. 8272 FORA=19TO23:IFLEFT$(O$(A),3)="EGG"THENO$(A)="":S(10)=S(10)-1:O(8)=-1:A=23
  551. 8273 NEXT:POKEVC+21,0:GOSUB532:GOTO2040
  552. 8274 M$="╘HE LASSO FALLS OVER THE SPIKES AND IS":GOSUB65:M$="SECURE!":GOSUB65
  553. 8275 FORA=19TO23:IFLEFT$(O$(A),3)="ROP"THENO$(A)="":O(15)=H%:S(10)=S(10)-1:A=23
  554. 8276 NEXT:GOTO2040
  555. 8277 M$="ÿ╘HE SHAFT OF SUNLIGHT FALLS ONTO THE":GOSUB65:M$="╥OD. ╘HE RUNES SAY "
  556. 8278 M$=M$+"'╙PEAK ANSWER WHERE":GOSUB65:M$="╔ LISTEN AND LISTEN WHERE ╔ "
  557. 8279 M$=M$+"SPEAK!'":GOTO90
  558. 8280 M$="┘OU HAVE BROKEN YOUR STAFF!":S(62)=1:R%=1:GOTO90
  559. 8281 IFH%<281THENM$="┘OU HAVE FALLEN TO YOUR DEATH!":GOSUB65:GOSUB522:GOTO9400
  560. 8282 M$="┘OU LAND SAFELY ON THE OTHER SIDE!":H%=297:GOSUB532:TC%=1:GOTO90
  561. 8283 IFS(46)=0ANDS(48)=0THENM$="╘HE HOPPER FOLLOWS AND GLOWERS AT YOU!":POKEVC+6,159
  562. 8284 IFS(48)=1THENM$="┘OU VAULT ACROSS!":GOSUB65:GOTO8288
  563. 8286 IFS(46)>0ANDS(48)=0THENM$="╘HE HOPPER FOLLOWS YOU AND FALLS TO HIS":S(48)=1
  564. 8287 GOSUB65:IFS(48)>0THENM$="DEATH!!!":GOSUB65:S(46)=0:S(47)=0:O(18)=-1
  565. 8288 GOSUB532:GOTO2040
  566. 8300 IFW2$<>"SEA"THEN8350
  567. 8301 IFH%=200THENW2$="UND":GOSUB1:IFN%=1THENM$="┬ENEATH THE BRIDGE ":GOTO8261
  568. 8302 IFH%=200ANDS(64)>0THENW2$="BRI":GOSUB1:IFN%=1THENM$="┬EHIND, ":GOTO8260
  569. 8304 IFH%=200THENW2$="BRI":GOSUB1:IFN%=1THENM$="╘HERE ARE WALLS ON ":GOTO8262
  570. 8306 IFH%=223THENM$="╘O THE EAST LIES A SHEER DROP. BELOW,":GOSUB65:GOTO8263
  571. 8308 IFH%=224THENM$="┘OU ARE ON A LEDGE. ═UCH LOWER DOWN":GOSUB65:GOTO8264
  572. 8312 IFH%=204THENM$="╘HERE IS A RECESS IN ONE WALL!":GOTO90
  573. 8314 IFH%=171THENW2$="GAT":GOSUB1:IFN%=1THENM$="┴ CHINK OF LIGHT ":GOTO8265
  574. 8349 GOTO6979
  575. 8350 IFW2$<>"SLI"THEN8360
  576. 8351 IFLEFT$(Y$,4)="SLID"THENR$="╬O SWINGS OR SLIDES HERE!!":GOTO7650
  577. 8358 IFO(9)>0ANDS(18)=0THENR$="┘OU HAVE NOTHING TO CUT IT WITH!":GOTO7650
  578. 8359 R$="┘OU CUT IT BUT NOTHING HAPPENS....":GOTO7650
  579. 8360 IFW2$<>"SWI"THEN8370
  580. 8364 IFH%=182THENW2$="SHO":GOSUB1:IFN%=1THENH%=H%-1:R%=0:GOTO7650
  581. 8368 IFH%<181ORH%>182THENR$="╘HERE'S NOTHING TO SWIM IN!!":GOTO7650
  582. 8369 R$="┬UT WHAT IF YOU DROWN?":GOTO7650
  583. 8370 IFW2$="STR"THEN7500
  584. 8380 IFW2$="SCO"THENM$="┘OUR SCORE SO FAR IS..."+STR$(S(4))+"%":GOTO90
  585. 8383 IFH%=205ANDS(55)>0ANDS(56)>0THENW2$="NSW":GOSUB1:IFN%=1THEN8266
  586. 8384 IFH%=297ANDS(61)=0THENW2$="AWO":GOSUB1:IFN%=1THENS(61)=1:GOTO8267
  587. 8385 R$="╧K - "+MID$(Y$,5):GOTO7650
  588. 8400 IFW2$="THR"THEN8450
  589. 8402 IFW2$="TAK"THEN7100
  590. 8403 IFW2$="TUR"THEN8490
  591. 8404 IFH%=223ANDO(15)=0ANDS(42)=0THENW2$="ROP":GOSUB1:IFN%=1THENW2$="TRE":GOTO8422
  592. 8406 IFO(15)=0ANDS(51)=0THENW2$="LAS":GOSUB1:IFN%=1THENS(51)=1:GOTO7650
  593. 8407 IFO(15)=0ANDS(51)=0THENW2$="LOO":GOSUB1:IFN%=1THENS(51)=1:GOTO7650
  594. 8420 IFO(15)>0THENR$="┘OU HAVE NO ROPE!":GOTO7650
  595. 8421 R$="┘OU CAN'T DO THAT!!":GOTO7650
  596. 8422 GOSUB1:IFN%=1THENS(42)=1:GOTO8424
  597. 8423 GOTO8406
  598. 8424 FORA=19TO23:IFLEFT$(O$(A),3)="ROP"THENO$(A)="":O(15)=H%:S(10)=S(10)-1:A=23
  599. 8425 NEXT:GOTO7650
  600. 8450 IFH%=205ANDS(39)=0ANDO(8)=0THENW2$="EGG":GOSUB1:IFN%=1THEN8270
  601. 8454 IFH%=217ANDO(15)=0ANDS(51)=1THENW2$="SPI":GOSUB1:IFN%=1THENS(51)=2:GOTO8274
  602. 8488 IFLEFT$(Y$,3)="LAS"THENR$="┘OU CAN'T LASSO THAT!":GOTO7650
  603. 8489 R$="╘HAT WOULDN'T BE VERY CLEVER!!!":GOTO7650
  604. 8490 IFH%=212ANDS(56)>0ANDS(58)=0THENW2$="ORB":GOSUB1:IFN%=1THENS(58)=1:GOTO8277
  605. 8495 R$="┘OU TURN ME ON!!":GOTO7650
  606. 8500 IFW2$="UNL"THENR$="┘OU HAVE NO KEY!":GOTO7650
  607. 8599 R$="┘OU CAN'T USE THAT!!!":GOTO7650
  608. 8600 R%=0:V%=0:IFH%>278ANDH%<282ANDO(9)=0ANDS(62)=0ANDO(14)>0THEN8280
  609. 8602 IFH%>278ANDH%<282ANDO(14)=0THEN8281
  610. 8606 IFH%=297ANDO(14)=0THENH%=281:GOTO8283
  611. 8699 R$="═Y MY!  ╫E ARE ATHLETIC!!":GOTO7650
  612. 8700 R$="┘OU CAN'T WEAR THAT!":GOTO7650
  613. 9400 POKEVC+21,0:SYS49258:PRINT"ô":SYS49297:SYS52672:SYS49235:POKEVC+12,151:POKEVC+13,0
  614. 9402 POKEVC+14,159:POKEVC+15,144:POKEVC+45,6:POKEVC+46,2:POKEVH+6,62:POKEVH+7,63
  615. 9404 POKEVC+21,192:FORA=1TO2000:NEXT:FORY=0TO136:POKEVC+13,Y:NEXT:POKEVC+21,64
  616. 9405 GOSUB510:GOSUB500
  617. 9450 PRINT"ô":POKE809,255:POKE774,131:POKE775,227:RUN9600
  618. 9500 IFS(32)>0THENRETURN
  619. 9502 POKEBO,0:POKEPA,6:PRINT"ô"
  620. 9503 SYS49321,2,0,"ERROR  ERROR  ERROR  ERROR  ERROR  ERROR"
  621. 9504 SYS49321,10,9,"INCORRECT DATA DISK!!"
  622. 9505 SYS49321,15,5,"PRESS 'X' TO RESTART PROGRAM."
  623. 9506 GOSUB9640:IFU$<>"X"THEN9506
  624. 9507 RUN9600
  625. 9600 Y$="XXX":W2$="ZZZ":N%=0
  626. 9601 DIMO$(23),O(18),S(70):DIMA$(152):PRINTCHR$(8):RESTORE:VC=53248:VH=64504
  627. 9605 S$="()()()()()()()()()()()()()()()()()()()(":BO=53280:PA=53281:H%=231
  628. 9606 POKEVC+21,0:SYS49258:SYS49297:SYS52672:PRINT"ô":FORA=64128TO64168:POKEA,14:NEXT
  629. 9607 POKEBO,2:POKEPA,2:GOSUB10000:PRINTCHR$(144):POKE49969,46
  630. 9608 SI=54272:LF=SI:HF=SI+1:AD=SI+5:SR=SI+6:WF=SI+4:VO=SI+24:H3=SI+15:L3=SI+14
  631. 9609 FORA=166TO316:READA$(A-165):NEXT
  632. 9610 POKEVC,170:POKEVC+1,108:POKEVC+2,162:POKEVC+3,105:POKEVC+4,0:POKEVH+5,61
  633. 9611 POKEVC+6,159:POKEVC+7,118:POKEVC+8,0:POKEVC+9,60:POKEVC+10,170:POKEVC+11,0
  634. 9612 POKEVC+39,1:POKEVC+40,0:POKEVC+41,1:POKEVC+42,0:POKEVC+43,1:POKEVC+44,0:POKEVC+27,16
  635. 9613 POKEVC+23,226:POKEVC+29,242:POKEVH,56:POKEVH+1,57:POKEVH+2,58:POKEVH+3,59:POKEVH+4,60
  636. 9614 SYS49321,18,0,"HIT Y TO LOAD IN THE DATA!":GOSUB9640
  637. 9615 IFU$<>"Y"THEN9614
  638. 9616 OPEN1,8,2,"0:DATA,S,R"
  639. 9617 FORA=1TO18:INPUT#1,O(A):NEXT
  640. 9618 FORA=1TO70:INPUT#1,S(A):NEXT
  641. 9619 FORA=1TO23:INPUT#1,O$(A):NEXT
  642. 9620 CLOSE1:H%=S(7)
  643. 9623 GOSUB9500:GOTO13
  644. 9640 GETU$:IFU$=""THEN9640
  645. 9642 RETURN
  646. 10000 PRINT"ƒªªª ªªª     ª  ª ªªª ªªª"
  647. 10010 PRINT"ª   ª       ª ª  ª ª ª ª"
  648. 10020 PRINT"ªªª ªªª ªªª ªª   ªªª ªªª   ₧   OF"
  649. 10030 PRINT"ƒ  ª ª       ª ª  ª ª ª ª   ₧ ASSIAH"
  650. 10040 PRINT"ƒªªª ªªª     ª  ª ª ª ª ª"
  651. 10050 PRINT:PRINT:PRINT"((( PART TWO )))"
  652. 10060 PRINT:PRINT"HOGARTH & WILSON"
  653. 10900 RETURN
  654. 11000 DATAWE,WE,WE,WE,WE,W,O,NE,W,O,O,O,O,O,O,E,W,O,O,NSD,O,O,O,NS,O,O,O,O,O,O
  655. 11010 DATAO,E,WD,O,NS,UE,WE,W,U,SE,WE,WE,O,O,O,O,E,NEW,WE,W,NS,O,O,O,O,NE,WE,NW
  656. 11020 DATAO,O,O,O,O,S,NE,NEW,NSEW,NW,O,NE,NEW,WS,O,NSE,WE,O,O,O,O,O,NSE,NSEW
  657. 11030 DATANSEW,NSEW,WE,WES,WS,S,O,SE,WE,O,O,O,E,WE,WS,SE,WSE,SW,N,O,NE,NW,O,O,O
  658. 11040 DATAO,O,O,NE,WE,WN,E,WE,W,NE,WE,NWS,S,O,O,O,O,O,O,NS,O,NS,O,O,N,SE,NWE
  659. 11050 DATASWE,W,O,O,O,O,O,O,S,O,SE,WE,WE,WES,WE,WES,W
  660. 62979 j
  661. 946 
  662. 128 
  663. 21507 j
  664. 946 ^j
  665. 128 
  666.